Создает определенное имя файла и возвращает объект TextStream, который может использоваться, чтобы читать или писать в файл.

object.CreateTextFile(filename[, overwrite[, unicode]])

Параметры
object Обязательный. Всегда имя объекта FileSystemObject или Folder
filename Обязательный. Строка, задающая имя создаваемого файла.
overwrite Необязательный. Значение типа Boolean, указывающее на возможность записи на место существующего файла. В том случае, когда значение равно True, такая запись разрешается; в противном случае значение равно False. По умолчанию False.
unicode Необязательный. Значение типа Boolean, указывающее, создается ли файл, использующий набор символов unicode, или файл с набором символов ASCII. Значение True задает создание файла с кодировкой unicode; значение False – с набором символов ASCII.

Пример
Следующий код иллюстрирует, как использовать CreateTextFile метод для создания текстового файла:

Sub CreateAfile
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set a = fs.CreateTextFile("c:\testfile.txt", True)
    a.WriteLine("This is a test.")
    a.Close
End Sub